      DOUBLE PRECISION DX(3)
      REAL X(3)
      INTEGER N(3)
      CHARACTER*20 COMMA
      DX(1)=1234.33333
      DX(2)=0.0
      DX(3)=1.0
      WRITE(6,100) (COMMA(DX(I),10,1,1,2),I=1,3)
      X(1)=1234.33333
      X(2)=0.0
      X(3)=1.0
      WRITE(6,100) (COMMA(DBLE(X(I)),10,1,1,2),I=1,3)
      N(1)=1234
      N(2)=0
      N(3)=1
      WRITE(6,100) (COMMA(DBLE(N(I)),10,1,1,2),I=1,3)
100   FORMAT(1X,3A10)
      STOP
      END
